home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 June / macformat-038.iso / Demos / Interactive Wave / _DATAS / SHARED.Dxr / 00973_Calculs.ls < prev    next >
Encoding:
Text File  |  1995-08-06  |  1.1 KB  |  64 lines
  1. on RecupPisteClic PisteDeb, PisteFin, NumCast
  2.   repeat with Piste = PisteDeb to PisteFin
  3.     if rollOver(Piste) then
  4.       if the castNum of sprite Piste = NumCast then
  5.         return Piste
  6.       end if
  7.     end if
  8.   end repeat
  9.   return 0
  10. end
  11.  
  12. on RecupCoord
  13.   set AccuA to string(the clickLoc)
  14.   set AccuB to chars(AccuA, 7, length(AccuA) - 1)
  15.   set AccuA to offset(",", AccuB)
  16.   put " " into char AccuA of AccuB
  17.   return AccuB
  18. end
  19.  
  20. on PutChampsInList NameChamps
  21.   set listPara to list()
  22.   set Champs to the text of cast NameChamps
  23.   repeat with AccuA = 1 to the number of words in Champs
  24.     add(listPara, word AccuA of Champs)
  25.   end repeat
  26.   return listPara
  27. end
  28.  
  29. on PutWordsInList Champs
  30.   set listPara to list()
  31.   repeat with AccuA = 1 to the number of words in Champs
  32.     add(listPara, word AccuA of Champs)
  33.   end repeat
  34.   return listPara
  35. end
  36.  
  37. on KS
  38.   DesactiveTouches()
  39. end
  40.  
  41. on FI
  42.   ForceInitVarLVI()
  43. end
  44.  
  45. on AM
  46.   AnnuleMacroVar()
  47. end
  48.  
  49. on SR
  50.   SetRecord()
  51. end
  52.  
  53. on FD
  54.   FinDemo()
  55. end
  56.  
  57. on SG
  58.   showGlobals()
  59. end
  60.  
  61. on GiveKey
  62.   put "KeyCode=" & string(the keyCode) & "the Key=" & string(the key)
  63. end
  64.